home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / guess age.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  111 lines
  1. 1 PRINT"[147]GARY WILSON"
  2. 2 PRINT"    BOX 747"
  3. 3 PRINT"CARLYLE SASK."
  4. 4 PRINT"  SOC ORO"
  5. 5 PRINT"TPUG#"
  6. 6 PRINT" 14874"
  7. 7 FORT=1TO5000:NEXTT
  8. 10 PRINT"[147]"
  9. 20 PRINT"ARE YOU OVER 63"
  10. 25 PRINT"Y/N IF'Y'THEN PICK"
  11. 26 PRINT"AN AGE 50 YEARS"
  12. 27 PRINT"YOUNGER OK AND"
  13. 28 PRINT"I WILL GUESS"
  14. 29 PRINT"YOUR AGE"
  15. 30 INPUT"Y/N";Q$
  16. 40 IFQ$="Y"THENM=50
  17. 100 A=1:B=37
  18. 110 PRINTA,B
  19. 120 A=A+2:B=B+2
  20. 130 PRINTA,B
  21. 140 IFA=35THEN2000
  22. 160 GOTO120
  23. 200 C=2:D=C+1
  24. 210 PRINTC,D
  25. 220 C=C+4 :D=C+1
  26. 230 PRINTC,D
  27. 240 IFD=63THEN3000
  28. 260 GOTO220
  29. 300 E=4:F=36
  30. 310 PRINTE,F
  31. 320 E=E+1:F=F+1
  32. 322 PRINTE,F
  33. 325 IFF=39THENF=F+4
  34. 330 IFE=7THENE=E+4
  35. 335 IFF=47THENF=F+4
  36. 340 IFE=15THENE=E+4
  37. 345 IFF=55THENF=F+4
  38. 346 IFE=23THENE=E+4
  39. 350 IFE=31THEN4000
  40. 360 GOTO320
  41. 400 G=8:H=40
  42. 410 PRINTG,H
  43. 420 G=G+1:H=H+1
  44. 425 PRINTG,H
  45. 430 IFG=15THENG=G+8
  46. 440 IFH=47THENH=H+8
  47. 445 IFG=31THEN5000
  48. 450 GOTO420
  49. 500 I=16:J=48
  50. 510 PRINTI,J
  51. 520 I=I+1:J=J+1
  52. 530 PRINTI,J
  53. 540 IFI=31THEN6000
  54. 550 GOTO520
  55. 600 K=32:L=48
  56. 610 PRINTK,L
  57. 620 K=K+1:L=L+1
  58. 630 PRINTK,L
  59. 640 IFK=48THEN7000
  60. 650 GOTO620
  61. 2000 PRINT"IS YOUR AGE"
  62. 2010 PRINT"IN THESE COLOUMS"
  63. 2020 PRINT"Y/N"
  64. 2040 INPUTA$:IFA$="Y"THENU=1:IFA$="N"THENU=0:GOTO200
  65. 2050 GOTO200
  66. 3000 PRINT"IS YOUR AGE"
  67. 3010 PRINT"IN THESE COLOUMS"
  68. 3020 PRINT"Y/N"
  69. 3040 INPUTB$:IFB$="Y"THENV=2:IFB$="N"THENV=0
  70. 3050 GOTO300
  71. 4000 PRINT"IS YOUR AGE"
  72. 4010 PRINT"IN THESE COLOUMS"
  73. 4020 PRINT"Y/N"
  74. 4040 INPUT C$:IFC$="Y"THENW=4:IFC$="N"THENW=0
  75. 4050 GOTO400
  76. 5000 PRINT"IS YOUR AGE"
  77. 5010 PRINT"IN THESE COLOUMNS"
  78. 5020 PRINT"Y/N"
  79. 5040 INPUTD$:IFD$="Y"THENX=8:IFD$="N"THENX=0
  80. 5050 GOTO500
  81. 6000 PRINT"IS YOUR AGE"
  82. 6010 PRINT"IN THESE COLOUMNS"
  83. 6020 PRINT"Y/N"
  84. 6030 INPUTE$:IFE$="Y"THENY=16:IFE$="N"THENY=0
  85. 6040 GOTO600
  86. 7000 PRINT"Y/N"
  87. 7030 INPUT F$:IFF$="Y"THENZ=32:IFZ$="N"THENZ=0
  88. 7040 GOTO8000
  89. 8000 PRINT"THINKING"
  90. 8010 FORT=1TO1000:NEXT
  91. 8015 P=U+V+W+X+Y+Z+M
  92. 8020 IFP=0THENPRINT"DON' YOU KNOW"
  93. 8050 PRINT"IT' NICE TO ONLY BE",P"YEARS OLD"
  94. 8055 R=P*365+365
  95. 8060 PRINT
  96. 8070 PRINT"ON YOUR NEXT"
  97. 8075 PRINT"BIRTHDAY YOU"
  98. 8080 PRINT"WILL BE",R"DAY'S OLD"
  99. 8085 S=R*24
  100. 8090 PRINT"THAT'S",S"HOUR'S"
  101. 8095 M=S*60:PRINT"OR"M"MINUTES"
  102. 9000 PRINT"I DIDN'T"
  103. 9010 PRINT"COUNT LEAP"
  104. 9020 PRINT"YEARS BYE":END
  105. 9050 REM MY FIRST PRG
  106. 9060 REM BORDER&COLOUR
  107. 9070 REM POKES AVOIDED
  108. 9080 REM TO ENABLE THE
  109. 9090 REM PRG TO RUN
  110. 10000 REM ON VIC OR
  111.